home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / misc / pubscr.lha / pubscr / PubScr.Install < prev    next >
Encoding:
Text File  |  1992-09-02  |  3.1 KB  |  150 lines
  1.  
  2. ; Installation script for PubScr 1.0
  3. ; (c)1994 by Codex Design.
  4. ; uses the Commodore Installer
  5. ; ---------------------------------------------------
  6. ; (w)6.2.1994 by Hans Bühler
  7.  
  8. ; --------------------
  9. ; hallo und proceed...
  10.  
  11. (SET            KickVersion    (/ (GETVERSION) 65536))
  12.  
  13. (IF (< KickVersion 37)
  14. (
  15.   (MESSAGE        "Sorry, PubScr1.0 requires Kickstart 2.04 (V37)\n"
  16.               "or higher. Update soon !")
  17.   (EXIT            "Bye" (QUIET))
  18. ))
  19.  
  20. (MESSAGE        "\n\n"
  21.             "·C·O·D·E·X· ·D·E·S·I·G·N· ·S·O·F·T·W·A·R·E·\n"
  22.             "presents:\n"
  23.             "\n"
  24.             "PubScr1.0\n"
  25.             "* create a public screen of your own *\n"
  26.             "\n"
  27.             "PubScr allows to open a fully user-defined public\n"
  28.             "screen for alien visitor windows.\n"
  29.             "Refer to the documents for further information.\n"
  30.             "(c)1994 Codex Design Software")
  31.  
  32. ; ---------------------
  33. ; ziel directory wählen
  34.  
  35. (SET @default-dest (ASKDIR    (PROMPT        "Please select destination\ndirectory for the executable:")
  36.                 (HELP        @askdir-help)
  37.                 (DEFAULT    @default-dest)    ))
  38.  
  39. (SET Target @default-dest)
  40.  
  41. ; --------------------------
  42. ; kopiere pubscr & info file
  43.  
  44. (COPYFILES            (SOURCE        "PubScr")
  45.                 (DEST        @default-dest)
  46.                 (INFOS)
  47.                 (OPTIONAL    "fail" "force")    )
  48.  
  49. (COMPLETE 10)
  50.  
  51. (SET a1 (TACKON Target "PubScr"))
  52.  
  53. (TOOLTYPE            (DEST        a1)
  54.                 (SETTOOLTYPE    "STDSET" "NONE")
  55.                 (NOPOSITION)            )
  56.  
  57. (COMPLETE 15)
  58.  
  59. ; --------------------
  60. ; kopiere default icon
  61.  
  62. (IF (= 0 (EXISTS        "ENVARC:PubScr"))
  63. (
  64.   (MAKEDIR            "ENVARC:PubScr")
  65.   (COMPLETE 20)
  66. ))
  67.  
  68. (COPYFILES            (SOURCE        "icons/DefPubScr_project.info")
  69.                 (DEST        "ENVARC:PubScr"))
  70.  
  71. (COMPLETE 25)
  72.  
  73. ; -------------------------------------
  74. ; locate & copy amigaguide, set dos var
  75.  
  76. (IF (ASKBOOL            (PROMPT        "\n\n"
  77.                         "Do you want me to copy the\n"
  78.                         "amigaguide documents to your system, too ?")
  79.                 (HELP        @askbool-help)
  80.                 (DEFAULT    1)        )
  81. (
  82.   (SET AGDir (ASKDIR        (PROMPT        "Please select a directory where\nyou want me to place\nthe amigaguide docs:")
  83.                   (HELP        @askdir-help)
  84.                 (DEFAULT    @default-dest)    ))
  85.  
  86.   (COPYFILES            (SOURCE        "PubScr.guide")
  87.                 (INFOS)
  88.                 (DEST        AGDir)        )
  89.  
  90.   (COMPLETE 30)
  91.  
  92.   (TEXTFILE            (DEST        "ENVARC:PubScr/HelpFile")
  93.                 (APPEND        (TACKON AGDir "PubScr.guide") ) )
  94. ))
  95.  
  96. (COMPLETE 35)
  97.  
  98. ; --------------------------
  99. ; copy all libraries to disk
  100.  
  101. (SET LibName "diskfont.library")
  102.  
  103. (IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  104.   (COPYFILEs            (SOURCE        (TACKON "libs/" LibName))
  105.                 (DEST        "LIBS:")
  106.                 (OPTIONAL    "fail" "force")    )
  107. )
  108. (COMPLETE 60)
  109.  
  110.  
  111. (SET LibName "amigaguide.library")
  112.  
  113. (IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  114.   (COPYFILEs            (SOURCE        (TACKON "libs/" LibName))
  115.                 (DEST        "LIBS:")
  116.                 (OPTIONAL    "fail" "force")    )
  117. )
  118. (COMPLETE 75)
  119.  
  120.  
  121. (SET LibName "gadtoolsbox.library")
  122.  
  123. (IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  124.   (COPYFILEs            (SOURCE        (TACKON "libs/" LibName))
  125.                 (DEST        "LIBS:")
  126.                 (OPTIONAL    "fail" "force")    )
  127. )
  128. (COMPLETE 90)
  129.  
  130.  
  131. (SET LibName "reqtools.library")
  132.  
  133. (IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  134.   (COPYFILEs            (SOURCE        (TACKON "libs/" LibName))
  135.                 (DEST        "LIBS:")
  136.                 (OPTIONAL    "fail" "force")    )
  137. )
  138. (COMPLETE 100)
  139.  
  140.  
  141. ; ------------
  142. ; Over and out
  143.  
  144. (EXIT    "\n"
  145.     "I hope that you will use and enjoy this\n"
  146.     "little program.\n"
  147.     "If you have problems, contact me !\n"
  148.     "\n"
  149.     "Codex Design Software, Amiga")
  150.